home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earcd / ppaint64 / rexx / animtoanimbrush.pprx < prev    next >
Text File  |  1996-06-17  |  1KB  |  84 lines
  1. /* PPaint Amiga Rexx script - Copyright © 1995 Cloanto Italia srl */
  2.  
  3. /*
  4.   $VER: AnimToAnimBrush.pprx 1.0
  5.  
  6.   This script converts an animation into an Anim-Brush.
  7.  
  8.   For more information, or suggestions, please address E-mail to
  9.  
  10.     <info@cloanto.com>
  11.  
  12. */
  13.  
  14.  
  15. MYPORT = 'PPAINT'
  16.  
  17. IF ~SHOW('P', MYPORT) THEN DO
  18.     IF EXISTS('PPaint:PPaint') THEN DO
  19.         ADDRESS COMMAND 'Run >NIL: PPaint:PPaint'
  20.         DO 30 WHILE ~SHOW('P',MYPORT)
  21.              ADDRESS COMMAND 'Wait >NIL: 1 SEC'
  22.         END
  23.     END
  24.     ELSE DO
  25.         SAY "Personal Paint could not be loaded."
  26.         EXIT 10
  27.     END
  28. END
  29.  
  30. IF ~SHOW('P', MYPORT) THEN DO
  31.     SAY 'Personal Paint Rexx port could not be opened.'
  32.     EXIT 10
  33. END
  34.  
  35. ADDRESS VALUE MYPORT
  36. OPTIONS RESULTS
  37. OPTIONS FAILAT 10000
  38.  
  39. Version 'REXX'
  40. IF RESULT < 4 THEN DO
  41.     errmess = 'This script requires a newer_version of Personal Paint.'
  42.     SAY errmess
  43.     RequestNotify 'PROMPT="'errmess'"'
  44.     EXIT 10
  45. END
  46.  
  47.  
  48. FreeBrush
  49. IF RC ~= 0 THEN EXIT RC
  50.  
  51.  
  52. LockGUI
  53. loaded = 0
  54. GetFrameNum
  55. frnum = RESULT
  56. IF frnum = 0 THEN DO
  57.     LoadAnim NEW
  58.     IF RC = 0 THEN DO
  59.         GetFrameNum
  60.         frnum = RESULT
  61.         loaded = 1
  62.     END
  63. END
  64. IF frnum > 0 THEN DO
  65.     Get SETTING IMAGEW
  66.     x1 = RESULT - 1
  67.     Get SETTING IMAGEH
  68.     y1 = RESULT - 1
  69.  
  70.     GetFramePos
  71.     fpos = RESULT
  72.     SetFramePos 1
  73.     GetRectBrush 0 0 x1 y1 FRAMES frnum
  74.     SetFramePos fpos
  75.     IF RC = 0 THEN
  76.         SaveAnimBrush
  77.     FreeBrush FORCE
  78. END
  79. IF loaded THEN DO
  80.     DelFrames ALL FORCE
  81.     ClearImage FORCE
  82. END
  83. UnlockGUI
  84.